Attribute VB_Name = "Typing"

            Case 2: ScrTxt = ScrTxt & "1"
            Case 3: ScrTxt = ScrTxt & "2"
                
            Case 4: ScrTxt = ScrTxt & "3"
            Case 5: ScrTxt = ScrTxt & "4"
            Case 6: ScrTxt = ScrTxt & "5"
            Case 7: ScrTxt = ScrTxt & "6"
            Case 8: ScrTxt = ScrTxt & "7"
            Case 9: ScrTxt = ScrTxt & "8"
            Case 10: ScrTxt = ScrTxt & "9"
            Case 11: ScrTxt = ScrTxt & "0"
            Case 12: ScrTxt = ScrTxt & "-"
            Case 13: ScrTxt = ScrTxt & "="
            Case 15: ScrTxt = ScrTxt & "   " 'tab
            Case 16: ScrTxt = ScrTxt & "q"
            Case 17: ScrTxt = ScrTxt & "w"
            Case 18: ScrTxt = ScrTxt & "e"
            Case 19: ScrTxt = ScrTxt & "r"
            Case 20: ScrTxt = ScrTxt & "t"
            Case 21: ScrTxt = ScrTxt & "y"
            Case 22: ScrTxt = ScrTxt & "u"
            Case 23: ScrTxt = ScrTxt & "i"
            Case 24: ScrTxt = ScrTxt & "o"
            Case 25: ScrTxt = ScrTxt & "p"
            Case 26: ScrTxt = ScrTxt & "["
            Case 27: ScrTxt = ScrTxt & "]"
            Case 30: ScrTxt = ScrTxt & "a"
            Case 31: ScrTxt = ScrTxt & "s"
            Case 32: ScrTxt = ScrTxt & "d"
            Case 33: ScrTxt = ScrTxt & "f"
            Case 34: ScrTxt = ScrTxt & "g"
            Case 35: ScrTxt = ScrTxt & "h"
            Case 36: ScrTxt = ScrTxt & "j"
            Case 37: ScrTxt = ScrTxt & "k"
            Case 38: ScrTxt = ScrTxt & "l"
            Case 39: ScrTxt = ScrTxt & ";"
            Case 40: ScrTxt = ScrTxt & "'"
            Case 41: ScrTxt = ScrTxt & "`"
            Case 43: ScrTxt = ScrTxt & "\"
            Case 44: ScrTxt = ScrTxt & "z"
            Case 45: ScrTxt = ScrTxt & "x"
            Case 46: ScrTxt = ScrTxt & "c"
            Case 47: ScrTxt = ScrTxt & "v"
            Case 48: ScrTxt = ScrTxt & "b"
            Case 49: ScrTxt = ScrTxt & "n"
            Case 50: ScrTxt = ScrTxt & "m"
            Case 51: ScrTxt = ScrTxt & ","
            Case 52: ScrTxt = ScrTxt & "."
            Case 53: ScrTxt = ScrTxt & "/"
            Case 55: ScrTxt = ScrTxt & "*"
            Case 57: ScrTxt = ScrTxt & " "
            Case 71: ScrTxt = ScrTxt & "7"
            Case 72: ScrTxt = ScrTxt & "8"
            Case 73: ScrTxt = ScrTxt & "9"
            Case 74: ScrTxt = ScrTxt & "-"
            Case 75: ScrTxt = ScrTxt & "4"
            Case 76: ScrTxt = ScrTxt & "5"
            Case 77: ScrTxt = ScrTxt & "6"
            Case 78: ScrTxt = ScrTxt & "+"
            Case 79: ScrTxt = ScrTxt & "1"
            Case 80: ScrTxt = ScrTxt & "2"
            Case 81: ScrTxt = ScrTxt & "3"
            Case 82: ScrTxt = ScrTxt & "0"
            Case 83: ScrTxt = ScrTxt & "."
            Case 181: ScrTxt = ScrTxt & "/"

